object Batterie: TBatterie Left = 0 Top = 491 Hint = 'Cliquez sur le bouton de droite pour le menu' BorderIcons = [biSystemMenu, biMinimize] BorderStyle = bsNone Caption = 'Battery Gauge' ClientHeight = 29 ClientWidth = 108 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Icon.Data = {} OldCreateOrder = True PopupMenu = PopupMenu1 ShowHint = True Visible = True OnActivate = FormActivate OnCreate = FormCreate OnDestroy = FormDestroy OnMouseDown = Image1MouseDown OnMouseMove = FormMouseMove OnMouseUp = Image1MouseUp OnResize = FormResize PixelsPerInch = 96 TextHeight = 13 object Panel1: TPanel Left = 0 Top = 0 Width = 108 Height = 29 Align = alClient BevelInner = bvRaised BevelOuter = bvLowered BorderStyle = bsSingle TabOrder = 0 object Image1: TImage Left = 2 Top = 2 Width = 100 Height = 21 Align = alClient PopupMenu = PopupMenu1 OnClick = Image1DblClick OnDblClick = Image1DblClick OnMouseDown = Image1MouseDown OnMouseMove = FormMouseMove OnMouseUp = Image1MouseUp end object Label1: TLabel Left = 144 Top = 128 Width = 32 Height = 13 Caption = 'Label1' end end object Timer1: TTimer Enabled = False Interval = 500 OnTimer = Timer1Timer Left = 64 Top = 40 end object PopupMenu1: TPopupMenu Left = 18 Top = 10 object BarreTacheUnique: TMenuItem Caption = '&Only on system tray' OnClick = BarreTacheUniqueClick end object Toujoursaudessus1: TMenuItem Caption = '&Always visible' Checked = True OnClick = Toujoursaudessus1Click end object MenuCouleur: TMenuItem Caption = '&Color' object normale1: TMenuItem Caption = '&Normal...' OnClick = normale1Click end object alerte1: TMenuItem Caption = '&Alert...' OnClick = alerte1Click end object Barredestches1: TMenuItem Caption = 'System tray (&battery)...' OnClick = Barredestches1Click end object Barredestchessecteur1: TMenuItem Caption = 'System tray (&plugged)...' OnClick = Barredestchessecteur1Click end object BarredestchesOmbre1: TMenuItem Caption = 'System tray (&shadow)...' OnClick = BarredestchesOmbre1Click end end object Afficherletemps1: TMenuItem Caption = '&Time estimation' Checked = True OnClick = Afficherletemps1Click end object N2: TMenuItem Caption = '-' end object Enregistrement1: TMenuItem Caption = '&Register' OnClick = Enregistrement1Click end object APropos1: TMenuItem Caption = 'A&bout BGauge' OnClick = APropos1Click end object N1: TMenuItem Caption = '-' end object Fermer1: TMenuItem Caption = '&Close' OnClick = Fermer1Click end end object SelectColor: TColorDialog Ctl3D = True Left = 66 Top = 18 end object AmbSysTray1: TAmbSysTray Icons = ImageList1 IconItemLast = 0 IconItemFirst = 0 Tip = 'Etat de la batterie' Interval = 0 OnClick = AmbSysTray2DblClick OnDblClick = AmbSysTray2Click Active = False Left = 58 Top = 10 end object ImageList1: TImageList Masked = False Left = 10 Top = 10 end object AmbSysTray2: TAmbSysTray Icons = ImageList1 IconItemLast = 1 IconItemFirst = 1 Tip = 'Etat de la batterie' Interval = 0 OnClick = AmbSysTray2DblClick OnDblClick = AmbSysTray2Click Active = False Left = 26 Top = 2 end end